home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / program / srcbkvt.zip / LISTBOX.ZIP / TEST.PAS < prev    next >
Pascal/Delphi Source File  |  1995-11-30  |  782b  |  46 lines
  1. {
  2.   * Unit Name: test.pas
  3.   * Author:    William Stamatakis
  4.   * Created:   11 '95
  5.   *
  6.   * Note:      Sample App Form (TForm1)
  7. }
  8.  
  9. unit test;
  10.  
  11. interface
  12.  
  13. uses
  14.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  15.   Forms, Dialogs, StdCtrls, TBillist, Listdlg;
  16.  
  17. type
  18.   TForm1 = class(TForm)
  19.     BillListBox1: TBillListBox;
  20.     btnSearchDlg: TButton;
  21.     btnSearch: TButton;
  22.     procedure btnSearchClick(Sender: TObject);
  23.   private
  24.     { Private declarations }
  25.   public
  26.     { Public declarations }
  27.   end;
  28.  
  29. var
  30.   Form1: TForm1;
  31.  
  32. implementation
  33.  
  34. {$R *.DFM}
  35.  
  36. procedure TForm1.btnSearchClick(Sender: TObject);
  37. begin
  38. if (Sender = btnSearchDlg) then
  39.   BillListBox1.FindItemDlg('')
  40. else
  41.   BillListBox1.SearchList('A');
  42.  
  43. end;
  44.  
  45. end.
  46.